
http://www.cookbook-r.com/Graphs/Plotting_means_and_error_bars_(ggplot2)/

library(ggplot2)

zz <- file.path("U:","My Documents")

#File.Location <- file.path(zz,"BALANCED.sav")
File.Location <- file.path(zz,"ebars1.csv")
y <- read.csv(File.Location)
y <- data.frame(y)
attach(y)

group <- factor(group)
fluency <- factor(Fluency)

# Use 95% confidence intervals instead of SEM
ggplot(y, aes(x=fluency, y=Mean, fill=group)) + 
    geom_bar(position=position_dodge(), stat="identity") +
    geom_errorbar(aes(ymin=Mean-width, ymax=Mean+width),
                  width=.2,                    # Width of the error bars
                  position=position_dodge(.9))